home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / BASIC / 2620A.ZIP / EXAMP1.ZIP / UMEX300.BAS < prev    next >
BASIC Source File  |  1990-04-09  |  718b  |  27 lines
  1. 'User's Manual Example, Page 300.
  2. '
  3. 'Will not compile with DIM STATIC iarray%(1:n%).
  4. 'Changed $LINK "sum.obj" to $LINK "umex301.obj".
  5. 'Must compile "umex301.asm" to an .obj file.
  6. 'Added $LIB and $ERROR statements to reduce .EXE size.
  7. '
  8. '*************************************************************
  9.  
  10. $LIB ALL OFF
  11. $ERROR ALL OFF
  12.  
  13. n% = 200                                    '200 elements in array
  14. DIM iarray%(1:n%)
  15. DECLARE FUNCTION suminteger&( INTEGER, INTEGER )
  16. $LINK "umex301.obj"
  17.  
  18. FOR i% = 1 to n%                            'initialize iarray%()
  19.  iarray%(i%) = i%
  20. NEXT i%
  21.  
  22. thesum& = suminteger&( iarray%(1), n%)      'sum all 200 elements
  23. PRINT "Array iarray%()'s sum = "; thesum&
  24. END
  25.  
  26.  
  27.